#!/usr/bin/perl
use warnings;
use strict;

sub sumarine;

#create hash
our %customer_list=(
	"_method"	=> 	"GET",
	"_protocol"	=> 	"HTTP",
	"_id"		=>  1
);

#adding element to hash
$customer_list{"_url"} = "http://www.dantri.vn";

#delete from hash
#delete ($customer_list{"_url"});

#foreach my $key (keys(%customer_list)){
#	print "key - value: " . $key . "-" . $customer_list{$key} . "\n"; 
#}

#my $total = &sumarine(5, 10);
#print "total " . $total . "\n";


our %child_hash=(
	"child_key_1" => "child_value_1",
	"child_key_2" => "child_value_2"
);

#our %parent_hash=(
#	"child_hash", {"child"}
#);

sub sumarine(){
	my($param1, $param2) = @_;
	return ($param1+$param2);
}

print "PATH is " . $ENV{PATH} . "\n";

